--[[
   编码: JX-16-23
   名称: 盘点计划-盘点结果上传
   作者：
   日期：2025-1-19

   函数： Report_Upwards

   功能:
         盘点计划完成后，把盘点结果上传给上游系统
         （不是所有项目都需要，看项目定）
   更改记录:
        V2.0 HAN 20250320
             只对货品盘点类型的盘点上传巨沃
--]]
jx_base= require( "jx_base" )
jx_api = require ( "jx_external_api")

function Report_Upwards( strLuaDEID )
    local nRet, strRetInfo,objs

    -- step1  获取当前点中的容器
    nRet, objs = m3.GetSysDataJson( strLuaDEID )
    if ( nRet ~=0 ) then lua.Error( strLuaDEID, debug.getinfo(1), objs ) end  
    -- [{"id":"","attrs":[{"attr":"","value":""},..]},..]
    local nCount = #objs
    if (nCount == 0) then  return end

    local count_plan
    local upward_count = 0

    for n = 1, nCount do
        nRet, count_plan = m3.GetDataObject( strLuaDEID, "Count_Plan", objs[n].id ) 
        if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), count_plan ) end 

        -- 只有盘点计划状态=3/完成的 盘点计划才能回报， 并且回报状态不等1/完成
        if ( count_plan.b_state == 3 and count_plan.cr_state ~= 1 and count_plan.type == wms_base.Get_nConst(strLuaDEID, "盘点类型-货品盘点") ) then
            upward_count = upward_count + 1
            nRet, strRetInfo = jx_api.JW_WMS_API_subStockCheck( strLuaDEID, count_plan.cp_no )
            -- 更新盘点计划的完工回报属性
            local curTime = os.date("%Y-%m-%d %H:%M:%S")
            
            local strSetAttr
            if ( nRet == 0 ) then
                -- 盘点差异表 C_RECOUNT 设置为 N 表示不允许复盘
                strCondition = "S_CP_NO = '"..count_plan.cp_no.."'"
                strSetAttr = "C_RECOUNT = 'N'"
                nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Count_Diff", strCondition, strSetAttr )
                if ( nRet ~= 0 ) then  lua.Error( strLuaDEID, debug.getinfo(1), "更新【盘点差异表】信息失败!"..strRetInfo ) end  
                strSetAttr = "N_CR_STATE = 1, S_CR_ERR = '', T_CR = '"..curTime.."'"
            else
                lua.Debug( strLuaDEID, debug.getinfo(1), "JW-WMS subStockCheck 接口错误", strRetInfo )
                strSetAttr = "N_CR_STATE = 2, S_CR_ERR = 'JW-WMS subStockCheck 接口错误, 详细信息看日志!', T_CR = '"..curTime.."'"
            end
            -- 更新盘点计划回报状态
            strCondition = "S_CP_NO = '"..count_plan.cp_no.."'"
            nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Count_Plan", strCondition, strSetAttr )
            if ( nRet ~= 0 ) then  lua.Error( strLuaDEID, debug.getinfo(1), "更新【盘点计划】回报信息失败!"..strRetInfo ) end  
            -- 盘点计划相关的盘点单的上传状态也一起设置
            nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Count_Order", strCondition, strSetAttr )
            if ( nRet ~= 0 ) then  lua.Error( strLuaDEID, debug.getinfo(1), "更新【盘点单】回报信息失败!"..strRetInfo ) end              
        end
    end

    if ( upward_count == 0 ) then
        mobox.setInfo( strLuaDEID, "选中的盘点计划条件不满足，无法上传!")
        return
    end
    local action
    if ( upward_count == 1 ) then
        action = {
                    {
                        action_type = "refresh_cur_row",
                        value = ""
                    }
        }
    else
        action = {
            {
                action_type = "refresh",
                value = ""
            }
    }        
    end

    nRet, strRetInfo = mobox.setAction(strLuaDEID, lua.table2str(action))
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction错误: "..strRetInfo) end  
end